home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / AppLauncher.lha / AppLauncher / AppLauncher.dopus5 < prev    next >
Encoding:
Text File  |  1998-10-08  |  467 b   |  24 lines
  1. /* $VER: AppLauncher.dopus5 1.1 (7.10.98) (W) by Martin Steigerwald
  2.  
  3. Doesn't work correctly.
  4.  
  5. Funktioniert nicht richtig.
  6.  
  7. */
  8.  
  9. PARSE ARG portname function source dest arguments
  10. ADDRESS VALUE portname
  11. OPTIONS RESULTS
  12.  
  13. IF function == 'init' THEN DO
  14.     DOPUS COMMAND 'LaunchApp' PROGRAM 'AppLauncher' desc '"Launch an application!"' TEMPLATE '"APPLICATION FILES/M"'
  15.     EXIT
  16. END
  17.  
  18. IF UPPER(function)=='LAUNCHAPP' THEN DO
  19.     DOPUS RX 'AppLauncher.rexx' arguments
  20. END
  21.  
  22.  
  23.  
  24.